home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.08 Aug 86.sit / 02.08 Aug 86 / basic / SAMPLE PROGRAMS / ms basic / MS DEMO
MacBinary  |  1986-06-23  |  1.6 KB  |  [TEXT/MSBB]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Mon Jun 23 16:05:50 1986, modified Mon Jun 23 16:05:50 1986, creator Microsoft BASIC (binary), type ASCII, 1130 bytes "MS DEMO" , at 0x4ea 348 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MSBB]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 07 4d 53 20 44 45 4d | 4f 00 00 00 00 00 00 00 |..MS DEM|O.......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 53 42 | 42 01 00 00 00 00 00 00 |.TEXTMSB|B.......|
|00000050| 00 00 00 00 00 04 6a 00 | 00 01 5c 9b 23 5c 9e 9b |......j.|..\.#\..|
|00000060| 23 5c 9e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |#\......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3e 77 00 00 |........|....>w..|
|00000080| 27 20 4d 65 6e 75 2f 57 | 69 6e 64 6f 77 20 44 65 |' Menu/W|indow De|
|00000090| 6d 6f 0d 27 20 4d 53 20 | 42 41 53 49 43 28 62 29 |mo.' MS |BASIC(b)|
|000000a0| 20 6f 72 20 4d 53 20 42 | 41 53 49 43 20 28 64 29 | or MS B|ASIC (d)|
|000000b0| 20 76 65 72 73 69 6f 6e | 0d 27 20 62 79 20 44 61 | version|.' by Da|
|000000c0| 76 65 20 4b 65 6c 6c 79 | 0d 27 20 a9 31 39 38 36 |ve Kelly|.' .1986|
|000000d0| 20 4d 61 63 54 75 74 6f | 72 0d 0d 27 20 4e 6f 20 | MacTuto|r..' No |
|000000e0| 63 6f 6e 74 72 6f 6c 20 | 6f 66 20 44 65 73 6b 20 |control |of Desk |
|000000f0| 61 63 63 65 73 73 6f 72 | 79 20 6d 65 6e 75 0d 27 |accessor|y menu.'|
|00000100| 20 43 6c 65 61 72 20 6f | 6c 64 20 6d 65 6e 75 73 | Clear o|ld menus|
|00000110| 20 26 20 73 65 74 20 75 | 70 20 6e 65 77 20 6d 65 | & set u|p new me|
|00000120| 6e 75 73 0d 4d 45 4e 55 | 20 31 2c 30 2c 31 2c 22 |nus.MENU| 1,0,1,"|
|00000130| 46 69 6c 65 22 0d 4d 45 | 4e 55 20 31 2c 31 2c 31 |File".ME|NU 1,1,1|
|00000140| 2c 22 51 75 69 74 22 0d | 4d 45 4e 55 20 33 2c 30 |,"Quit".|MENU 3,0|
|00000150| 2c 31 2c 22 53 61 6d 70 | 6c 65 20 4d 65 6e 75 22 |,1,"Samp|le Menu"|
|00000160| 0d 4d 45 4e 55 20 33 2c | 31 2c 31 2c 22 49 74 65 |.MENU 3,|1,1,"Ite|
|00000170| 6d 20 31 22 0d 4d 45 4e | 55 20 33 2c 32 2c 31 2c |m 1".MEN|U 3,2,1,|
|00000180| 22 49 74 65 6d 20 32 22 | 0d 4d 45 4e 55 20 33 2c |"Item 2"|.MENU 3,|
|00000190| 33 2c 31 2c 22 49 74 65 | 6d 20 33 22 0d 4d 45 4e |3,1,"Ite|m 3".MEN|
|000001a0| 55 20 34 2c 30 2c 30 2c | 22 22 0d 4d 45 4e 55 20 |U 4,0,0,|"".MENU |
|000001b0| 35 2c 30 2c 30 2c 22 22 | 0d 4f 4e 20 44 49 41 4c |5,0,0,""|.ON DIAL|
|000001c0| 4f 47 20 47 4f 53 55 42 | 20 48 61 6e 64 6c 65 41 |OG GOSUB| HandleA|
|000001d0| 63 74 3a 44 49 41 4c 4f | 47 20 4f 4e 0d 0d 73 74 |ct:DIALO|G ON..st|
|000001e0| 61 72 74 3a 0d 27 20 6f | 70 65 6e 20 73 61 6d 70 |art:.' o|pen samp|
|000001f0| 6c 65 20 77 69 6e 64 6f | 77 0d 57 49 4e 44 4f 57 |le windo|w.WINDOW|
|00000200| 20 31 2c 22 22 2c 28 31 | 30 30 2c 31 30 30 29 2d | 1,"",(1|00,100)-|
|00000210| 28 34 30 30 2c 32 32 35 | 29 2c 32 0d 47 4f 53 55 |(400,225|),2.GOSU|
|00000220| 42 20 53 65 74 75 70 77 | 69 6e 64 6f 77 0d 0d 4f |B Setupw|indow..O|
|00000230| 4e 20 4d 45 4e 55 20 47 | 4f 53 55 42 20 6d 65 6e |N MENU G|OSUB men|
|00000240| 75 65 76 65 6e 74 0d 4d | 45 4e 55 20 4f 4e 0d 0d |uevent.M|ENU ON..|
|00000250| 6c 6f 6f 70 3a 0d 47 4f | 54 4f 20 6c 6f 6f 70 0d |loop:.GO|TO loop.|
|00000260| 0d 48 61 6e 64 6c 65 41 | 63 74 3a 4d 45 4e 55 20 |.HandleA|ct:MENU |
|00000270| 53 54 4f 50 3a 4d 4f 55 | 53 45 20 53 54 4f 50 0d |STOP:MOU|SE STOP.|
|00000280| 20 20 20 20 41 43 54 3d | 44 49 41 4c 4f 47 28 30 |    ACT=|DIALOG(0|
|00000290| 29 0d 20 20 20 20 49 46 | 20 41 43 54 3d 35 20 54 |).    IF| ACT=5 T|
|000002a0| 48 45 4e 20 47 4f 53 55 | 42 20 53 65 74 75 70 77 |HEN GOSU|B Setupw|
|000002b0| 69 6e 64 6f 77 0d 20 20 | 20 20 4d 45 4e 55 20 4f |indow.  |  MENU O|
|000002c0| 4e 3a 20 4d 4f 55 53 45 | 20 4f 4e 0d 52 45 54 55 |N: MOUSE| ON.RETU|
|000002d0| 52 4e 0d 0d 6d 65 6e 75 | 65 76 65 6e 74 3a 0d 20 |RN..menu|event:. |
|000002e0| 20 20 20 6d 65 6e 75 6e | 75 6d 62 65 72 3d 4d 45 |   menun|umber=ME|
|000002f0| 4e 55 28 30 29 0d 20 20 | 20 20 6d 65 6e 75 69 74 |NU(0).  |  menuit|
|00000300| 65 6d 3d 4d 45 4e 55 28 | 31 29 3a 4d 45 4e 55 0d |em=MENU(|1):MENU.|
|00000310| 20 20 20 20 4f 4e 20 6d | 65 6e 75 6e 75 6d 62 65 |    ON m|enunumbe|
|00000320| 72 20 47 4f 53 55 42 20 | 6d 65 6e 75 31 2c 6d 65 |r GOSUB |menu1,me|
|00000330| 6e 75 32 2c 6d 65 6e 75 | 33 0d 20 20 20 20 52 45 |nu2,menu|3.    RE|
|00000340| 54 55 52 4e 0d 0d 6d 65 | 6e 75 31 3a 0d 20 20 20 |TURN..me|nu1:.   |
|00000350| 20 49 46 20 6d 65 6e 75 | 69 74 65 6d 3d 31 20 54 | IF menu|item=1 T|
|00000360| 48 45 4e 20 51 75 69 74 | 0d 20 20 20 20 52 45 54 |HEN Quit|.    RET|
|00000370| 55 52 4e 0d 20 20 20 20 | 0d 6d 65 6e 75 32 3a 0d |URN.    |.menu2:.|
|00000380| 27 54 68 69 73 20 69 73 | 20 74 68 65 20 45 64 69 |'This is| the Edi|
|00000390| 74 20 6d 65 6e 75 0d 27 | 75 73 65 20 69 74 20 66 |t menu.'|use it f|
|000003a0| 6f 72 20 44 41 27 73 20 | 6f 6e 6c 79 0d 52 45 54 |or DA's |only.RET|
|000003b0| 55 52 4e 0d 0d 6d 65 6e | 75 33 3a 0d 4c 4f 43 41 |URN..men|u3:.LOCA|
|000003c0| 54 45 20 33 2c 31 0d 50 | 52 49 4e 54 22 59 6f 75 |TE 3,1.P|RINT"You|
|000003d0| 20 68 61 76 65 20 73 65 | 6c 65 63 74 65 64 20 6d | have se|lected m|
|000003e0| 65 6e 75 20 69 74 65 6d | 22 3b 6d 65 6e 75 69 74 |enu item|";menuit|
|000003f0| 65 6d 0d 52 45 54 55 52 | 4e 0d 0d 53 65 74 75 70 |em.RETUR|N..Setup|
|00000400| 77 69 6e 64 6f 77 3a 0d | 43 4c 53 0d 43 41 4c 4c |window:.|CLS.CALL|
|00000410| 20 54 45 58 54 46 4f 4e | 54 28 32 29 3a 43 41 4c | TEXTFON|T(2):CAL|
|00000420| 4c 20 54 45 58 54 53 49 | 5a 45 28 31 32 29 0d 43 |L TEXTSI|ZE(12).C|
|00000430| 41 4c 4c 20 54 45 58 54 | 46 41 43 45 28 31 29 0d |ALL TEXT|FACE(1).|
|00000440| 50 52 49 4e 54 20 22 4d | 61 63 54 75 74 6f 72 20 |PRINT "M|acTutor |
|00000450| 73 68 6f 77 73 20 79 6f | 75 20 68 6f 77 20 69 74 |shows yo|u how it|
|00000460| 20 77 6f 72 6b 73 21 22 | 0d 43 41 4c 4c 20 54 45 | works!"|.CALL TE|
|00000470| 58 54 46 41 43 45 28 30 | 29 0d 4c 4f 43 41 54 45 |XTFACE(0|).LOCATE|
|00000480| 20 35 2c 31 3a 50 52 49 | 4e 54 22 4d 53 20 42 41 | 5,1:PRI|NT"MS BA|
|00000490| 53 49 43 20 56 65 72 73 | 69 6f 6e 20 32 2e 31 20 |SIC Vers|ion 2.1 |
|000004a0| 64 65 6d 6f 22 0d 41 63 | 74 69 76 69 74 79 3d 30 |demo".Ac|tivity=0|
|000004b0| 0d 52 45 54 55 52 4e 0d | 0d 51 75 69 74 3a 0d 20 |.RETURN.|.Quit:. |
|000004c0| 20 20 20 4d 45 4e 55 20 | 52 45 53 45 54 0d 20 20 |   MENU |RESET.  |
|000004d0| 20 20 57 49 4e 44 4f 57 | 20 43 4c 4f 53 45 20 31 |  WINDOW| CLOSE 1|
|000004e0| 0d 20 20 20 20 45 4e 44 | 0d 0d 00 00 00 00 00 00 |.    END|........|
|000004f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000500| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000510| 00 00 00 02 0b 4d 61 74 | 68 53 74 61 74 4c 69 62 |.....Mat|hStatLib|
|00000520| 02 00 00 00 54 45 58 54 | 00 00 00 00 09 00 00 80 |....TEXT|........|
|00000530| 07 4d 53 20 44 45 4d 4f | 02 00 00 00 54 45 58 54 |.MS DEMO|....TEXT|
|00000540| 4d 53 42 42 01 00 00 00 | 00 00 00 00 00 01 ac 7f |MSBB....|........|
|00000550| 00 00 54 45 58 54 4d 53 | 42 42 01 00 00 00 00 00 |..TEXTMS|BB......|
|00000560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 00 00 9b 21 dc 3d 00 00 | 04 6a 00 00 01 5c 00 00 |...!.=..|.j...\..|
|00000580| 00 00 00 00 00 00 19 00 | 00 00 00 02 13 4d 69 63 |........|.....Mic|
|00000590| 72 6f 73 6f 66 74 20 42 | 41 53 49 43 20 28 62 29 |rosoft B|ASIC (b)|
|000005a0| 02 00 00 00 41 50 50 4c | 4d 53 42 42 21 01 00 1f |....APPL|MSBB!...|
|000005b0| 01 51 00 00 00 00 00 12 | 00 00 00 00 00 00 00 00 |.Q......|........|
|000005c0| 00 00 00 00 00 01 59 9c | 00 01 5a 00 99 74 d7 79 |......Y.|..Z..t.y|
|000005d0| 99 87 9f 33 00 00 00 00 | 3c 50 00 00 00 00 00 00 |...3....|<P......|
|000005e0| 00 00 15 0e 00 00 00 02 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 4d | 00 ad 00 00 00 00 00 00 |.......M|........|
|00000600| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 0a 00 00 |.......M|onaco...|
|00000610| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000620| 00 16 00 00 00 46 00 00 | cc 24 03 50 00 00 00 1c |.....F..|.$.P....|
|00000630| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000640| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 d7 40 |........|.......@|
|00000650| 03 ec ff ff 00 00 00 0e | 00 00 d7 5c 00 00 00 00 |........|...\....|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+